object DefineTextForm: TDefineTextForm Left = 241 Top = 454 BorderStyle = bsDialog Caption = 'Title Attributes' ClientHeight = 227 ClientWidth = 494 Font.Color = clBtnText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False PixelsPerInch = 96 TextHeight = 15 object Label1: TLabel Left = 8 Top = 8 Width = 51 Height = 15 Caption = '&Title Text:' FocusControl = TextMemo end object Label2: TLabel Left = 8 Top = 197 Width = 58 Height = 15 Caption = 'Alignment:' end object InsCodeBtn: TSpeedButton Left = 167 Top = 193 Width = 25 Height = 25 Hint = 'Insert special text code' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 00033330FFFFFFFFFF033330FF7777F7FF033330FFFFFFFFFF033330FF77F777 FF033330FFFFFFFFFF033330F17777F7FF033111191FFFFFFF0339999997F777 FF033330F9FFFFFFFF033330FF77F777FF033330FFFFFF0000033330FF777F0F F0333330FFFFFF0F03333330FFFFFF0033333330000000033333} ParentShowHint = False ShowHint = True OnClick = InsCodeBtnClick end object LeftBtn: TSpeedButton Left = 72 Top = 193 Width = 25 Height = 25 Hint = 'Left' GroupIndex = 1 Down = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000077777777777777 7777770000000077777777777777777777777700000000000077777777777777 7777770000000077777777777777777777777700000000000077777777777777 7777770000000077777777777777777777777777777777777777} ParentShowHint = False ShowHint = True end object CenterBtn: TSpeedButton Left = 97 Top = 193 Width = 25 Height = 25 Hint = 'Center' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000077777777777777 7777777700000000777777777777777777777700000000000077777777777777 7777777700000000777777777777777777777700000000000077777777777777 7777777700000000777777777777777777777777777777777777} ParentShowHint = False ShowHint = True end object RightBtn: TSpeedButton Left = 122 Top = 193 Width = 25 Height = 25 Hint = 'Right' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000077777777777777 7777777777000000007777777777777777777700000000000077777777777777 7777777777000000007777777777777777777700000000000077777777777777 7777777777000000007777777777777777777777777777777777} ParentShowHint = False ShowHint = True end object OkBtn: TBitBtn Left = 228 Top = 192 Width = 81 Height = 28 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333300033333333333000B0330000300000E00030BFB70FBFB0 E0003000000BFBF0E00030BFB70FBFB0E0003000000BFBF0E00030BFB70F0FB0 E00030000000FBF0E00030BFB700BFB0E0003300000BFB0000003333330FB033 33333333330B033333333333330F833333333333333083333333} end object CancelBtn: TBitBtn Left = 316 Top = 192 Width = 81 Height = 28 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333 33333333330F833333333333330B033330003333330FB03000B03380000BFB00 E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0 E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000 0000333333333333333333333333333333333333333333333333} end object TextMemo: TMemo Left = 8 Top = 28 Width = 477 Height = 153 Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 WordWrap = False end object HelpBtn: TBitBtn Left = 404 Top = 192 Width = 81 Height = 28 Caption = '&Help' TabOrder = 3 OnClick = HelpBtnClick Glyph.Data = { 76010000424D760100000000000076000000280000001B000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300003333333330000033333333333300BFBF00333333300000333333333330 FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0 FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0 000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333 00FBFB003333333000003CCC3333333333000033333333300000} end object CodeMenu: TPopupMenu AutoPopup = False Left = 364 Top = 40 object PageTitle1: TMenuItem Tag = 1 Caption = 'Page Title' ShortCut = 0 OnClick = MenuItemClick end object PageNumber1: TMenuItem Tag = 2 Caption = 'Page Number' ShortCut = 0 OnClick = MenuItemClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Time1: TMenuItem Tag = 3 Caption = 'Time' ShortCut = 0 OnClick = MenuItemClick end object DateShortFormat1: TMenuItem Tag = 4 Caption = 'Date (Short Format)' ShortCut = 0 OnClick = MenuItemClick end object DateLongFormat1: TMenuItem Tag = 5 Caption = 'Date (Long Format)' ShortCut = 0 OnClick = MenuItemClick end object Month1: TMenuItem Tag = 6 Caption = 'Month' ShortCut = 0 OnClick = MenuItemClick end object MonthNumber1: TMenuItem Tag = 7 Caption = 'Month (Number)' ShortCut = 0 OnClick = MenuItemClick end object Day1: TMenuItem Tag = 8 Caption = 'Day' ShortCut = 0 OnClick = MenuItemClick end object DayNumber1: TMenuItem Tag = 9 Caption = 'Day (Number)' ShortCut = 0 OnClick = MenuItemClick end object Year1: TMenuItem Tag = 10 Caption = 'Year' ShortCut = 0 OnClick = MenuItemClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Value1: TMenuItem Caption = 'Author Defined Variable' ShortCut = 0 OnClick = Value1Click end end end